home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / FROMUTS / ARCAUT / Automatons / Anneal next >
Text File  |  1991-07-27  |  718b  |  35 lines
  1. AUTOMATON*
  2.  
  3.   Anneal
  4.  
  5.   This is a simple two-state automaton devised by Gerard Vichniac.
  6.   The Moore neighbourhood is used. If a cell has 6 or more neigbours
  7.   (counting itself) of one type then it becomes that type; otherwise it has 4
  8.   of one type & 5 of the other & takes on the state of the 4 neighbours.
  9.   This is started from a random soup. Try windows 200x100 & 50x40.
  10.  
  11.  
  12. INITIALISATION*
  13.  
  14.  10DEF PROCdo
  15.  20*SetEval wrap on
  16.  30*SetEval c 22
  17.  40ENDPROC
  18.  
  19. SCREEN*
  20.  
  21.   10DEF PROCdo
  22.   20DIM buf% 256:SYS "OS_ReadVarVal","c",buf%,256
  23.   30PROCsoup(!buf%,1,.5)
  24.   40ENDPROC
  25.  
  26. CODE*
  27.  
  28. ( READ_NEIG
  29.   SUM_ALL
  30.   DUP [4*<c>] < IF (0   ==)
  31.   DUP [5*<c>] > IF (<c> ==)
  32.       [4*<c>] = IF (<c> ==)
  33.                     0   ==  )
  34.  
  35. END*